home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list5-2 < prev    next >
Text File  |  2019-04-13  |  3KB  |  133 lines
  1. if .p
  2.      t     "TopSym"
  3.      t     "TopMac"
  4. endif
  5.  
  6. :Start
  7.      lda     #0
  8.      jsr     SetPattern
  9.      LoadB     dispBufferOn,ST_WR_FORE!ST_WR_BACK
  10.      ldy     #5
  11. ::10
  12.      lda     RecTabelle,y
  13.      sta     r2L,y
  14.      dey
  15.      bpl     :10
  16.      jsr     Rectangle
  17.      LoadW     r0,Men}Tabelle     ; Zeiger auf Men}Tabelle
  18.      lda     #0     ; Maus auf 1. Men}pkt
  19.      jsr     DoMenu     ; Men} darstellen
  20.      LoadW     r0,IconTable     ; Zeiger auf Icons
  21.      jsr     DoIcons     ; Icon darstellen
  22.      rts          ; R}cksprung zur MainLoop
  23.  
  24. :RecTabelle
  25.      b     0
  26.      b     199
  27.      w     0
  28.      w     319
  29.  
  30. :Men}Tabelle
  31.      b     0     ; obere  y-Koord. (byte)
  32.      b     14     ; untere y-Koord. (byte)
  33.      w     0     ; linke  x-Koord. (word)
  34.      w     102     ; rechte x-Koord. (word)
  35.      b     3 ! HORIZONTAL     
  36.  
  37.      w     geosText     
  38.      b     SUB_MENU     
  39.      w     geosSubTabelle     
  40.  
  41.      w     ZeitText
  42.      b     MENU_ACTION
  43.      w     ZeitReaktion
  44.  
  45.      w     VerlassenText
  46.      b     MENU_ACTION
  47.      w     EnterDeskTop
  48.  
  49. :VerlassenText
  50.      b     "verlassen",NULL
  51.  
  52. ;------------Hauptmen}punkt geos----------------
  53. :geosText     
  54.      b     "geos",NULL
  55.  
  56. :geosSubTabelle
  57.      b     15     ; obere  y-Koord. (byte)
  58.      b     29     ; untere y-Koord. (byte)
  59.      w     0     ; linke  x-Koord. (word)
  60.      w     40     ; rechte x-Koord. (word)
  61.      b     1 ! VERTICAL     
  62.  
  63.      w     InfoText     
  64.      b     MENU_ACTION     
  65.      w     InfoReaktion     
  66.  
  67. :InfoText
  68.      b     "Info",NULL
  69.  
  70. :InfoReaktion
  71.      jsr     GotoFirstMenu
  72.      LoadW     r0,InfoDiaTab
  73.      jsr     DoDlgBox
  74.      rts
  75. :InfoDiaTab
  76.      b     $81     ; Standard
  77.      b     DBTXTSTR
  78.      b     10
  79.      b     25
  80.      w     InfoText1
  81.  
  82.      b     DBTXTSTR
  83.      b     10
  84.      b     40
  85.      w     InfoText2
  86.  
  87.      b     DBTXTSTR
  88.      b     10
  89.      b     55
  90.      w     InfoText3
  91.  
  92.      b     OK
  93.      b     16
  94.      b     70
  95.      b     NULL
  96.  
  97. :InfoText1     b     BOLDON,OUTLINEON,"BlackScreen"
  98.      b     PLAINTEXT,BOLDON,NULL
  99. :InfoText2     b     "Ein Beipiel f}r eine",NULL
  100. :InfoText3     b     "Application",NULL
  101.  
  102. ;------------Hauptmen}punkt Zeit----------------
  103.      
  104. :ZeitText     b     "Zeit",NULL
  105. :ZeitReaktion
  106.      jsr     ReDoMenu
  107.      rts
  108.  
  109. ;------------Iconbehandlung---------------------
  110.  
  111.      :XIcon = 12
  112.      :YIcon = 154
  113.  
  114. :IconTable     b     1     ; 1 Icon     
  115.      w     0      ; keine neue Maus     postion !
  116.      b     0      ; (Y-Position Maus)
  117.  
  118.      w     IconGrafik     ; Zeiger auf kompr. Bitmap     
  119.      b     XIcon     ; X-Position Icon     
  120.      b     YIcon     ; Y-Position Icon     
  121.      b     IconBreite     ; Breite des Icon     s
  122.      b     IconH|he     ; H|he des Icons
  123.      w     IconRoutine     ; Iconroutine
  124.  
  125. :IconGrafik
  126. :IconBreite     = .x
  127. :IconH|he          = .y
  128.  
  129. :IconRoutine
  130.      rts
  131.  
  132.